library(parsnip)
library(finetune)

str(control_resamples())
#> List of 8
#>  $ verbose      : logi FALSE
#>  $ allow_par    : logi TRUE
#>  $ extract      : NULL
#>  $ save_pred    : logi FALSE
#>  $ pkgs         : NULL
#>  $ save_workflow: logi FALSE
#>  $ event_level  : chr "first"
#>  $ parallel_over: NULL
#>  - attr(*, "class")= chr [1:2] "control_grid" "control_resamples"
str(control_race())
#> List of 13
#>  $ verbose      : logi FALSE
#>  $ verbose_elim : logi FALSE
#>  $ allow_par    : logi TRUE
#>  $ extract      : NULL
#>  $ save_pred    : logi FALSE
#>  $ alpha        : num 0.05
#>  $ burn_in      : num 3
#>  $ num_ties     : num 10
#>  $ randomize    : logi TRUE
#>  $ pkgs         : NULL
#>  $ save_workflow: logi FALSE
#>  $ parallel_over: chr "everything"
#>  $ event_level  : chr "first"
#>  - attr(*, "class")= chr "control_race"

ctrl <- condense_control(
  control_race(verbose = TRUE), 
  control_resamples()
)

str(ctrl)
#> List of 8
#>  $ verbose      : logi TRUE
#>  $ allow_par    : logi TRUE
#>  $ extract      : NULL
#>  $ save_pred    : logi FALSE
#>  $ pkgs         : NULL
#>  $ save_workflow: logi FALSE
#>  $ event_level  : chr "first"
#>  $ parallel_over: chr "everything"
#>  - attr(*, "class")= chr [1:2] "control_grid" "control_resamples"

condense_control(
  control_resamples(),
  control_race(verbose = TRUE)
)
#> Error in `condense_control()`:
#> ! Object of class `control_grid` cannot be corresed to object of class `control_race`.
#> • The following arguments are missing:
#> • 'verbose_elim', 'alpha', 'burn_in', 'num_ties', and 'randomize'